home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / legibility.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  47 lines
  1. 5 PRINT"[147][156]":POKE 53272,20:POKE 53280,0:POKE 53281,0
  2. 7 PRINT""
  3. 9 PRINTTAB(11):PRINT"[156] LEGIBILITY TEST "
  4. 11 PRINT""
  5. 13 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 15 PRINT"[158]                      AN[170][205][206][180][213][201]
  7. 17 [153]"                        +  SGNMID$TAN PROGRAM
  8. 19 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  9. 20 FOR N=1TO3000:NEXT N
  10. 80 DATA BLACK,144
  11. 90 DATA WHITE,5
  12. 100 DATA RED,28
  13. 110 DATA CYAN,159
  14. 120 DATA PURPLE,156
  15. 130 DATA GREEN,30
  16. 140 DATA BLUE,31
  17. 150 DATA YELLOW,158
  18. 160 DATA ORANGE,129
  19. 170 DATA BROWN,149
  20. 180 DATA LGT RED,150
  21. 190 DATA GREY 1,151
  22. 200 DATA GREY 2,152
  23. 210 DATA LGT GREEN,153
  24. 220 DATA LGT BLUE,154
  25. 230 DATA GREY 3,155
  26. 260 DIM CN$(15),C$(15),C(15)
  27. 270 FOR J=0 TO 15
  28. 280 READ CN$(J),C(J)
  29. 290 C$(J)=CHR$(C(J))
  30. 300 NEXT
  31. 320 L$="0000 0123[146] 6699 0698[146] WMA@ #$%&[146]"
  32. 329 PRINT
  33. 330 PRINT:PRINTCHR$(147)CHR$(5)"MONITOR LEGIBILITY TEST"
  34. 340 PRINT:FOR J=0 TO 15
  35. 350 PRINT CHR$(5)CN$(J)TAB(10);
  36. 360 PRINT C$(J)L$
  37. 370 NEXT
  38. 380 PRINT:PRINT CHR$(5)"PRESS ANY KEY TO CHANGE BACKGROUND"
  39. 385 PRINT"TO EXIT PROGRAM, PRESS E
  40. 390 [153]:BK[178]6:[137] 440
  41. 400 [153] [199](5)"BACKGROUND IS "CN$(BK)"                "
  42. 410 [153] [199](145);
  43. 420 [161] A$:[139] A$[178]"E" [167] [137] 900
  44. 425 [139] A$[178]"" [167] 420
  45. 430 BK[178]BK[170]1 [175] 15
  46. 440 [151] 53281,BK:[137] 400
  47.